home *** CD-ROM | disk | FTP | other *** search
/ PCMania 83 / PCMania CD83_1.iso / dia.dir / 00070_Cambiacursor 2 Special (General).ls < prev    next >
Encoding:
Text File  |  1999-05-05  |  1023 b   |  37 lines
  1. property Elprimer, Sonid1, Sonid2
  2. global pantalla
  3.  
  4. on getPropertyDescriptionList
  5.   set caracteristica1 to [:]
  6.   addProp(caracteristica1, #Elprimer, [#default: the memberNum of sprite the currentSpriteNum, #format: #integer, #comment: "A partir del cast:"])
  7.   addProp(caracteristica1, #Sonid1, [#default: EMPTY, #format: #integer, #comment: "Sonido Pulsa:"])
  8.   addProp(caracteristica1, #Sonid2, [#default: EMPTY, #format: #integer, #comment: "Sonido Roll:"])
  9.   return caracteristica1
  10. end
  11.  
  12. on mouseDown me
  13.   set the memberNum of sprite the currentSpriteNum to Elprimer + 2
  14.   if (Sonid1 = VOID) or (Sonid1 = EMPTY) then
  15.     nothing()
  16.   else
  17.     puppetSound(3, Sonid1)
  18.   end if
  19.   forget(window "dia")
  20.   cursor(-1)
  21. end
  22.  
  23. on mouseEnter me
  24.   set the memberNum of sprite the currentSpriteNum to Elprimer + 1
  25.   if (Sonid2 = VOID) or (Sonid2 = EMPTY) then
  26.     nothing()
  27.   else
  28.     puppetSound(3, Sonid2)
  29.   end if
  30.   cursor([71, 72])
  31. end
  32.  
  33. on mouseLeave me
  34.   set the memberNum of sprite the currentSpriteNum to Elprimer
  35.   cursor(-1)
  36. end
  37.